--[Magic]
--v0.71 [Magic] Written by Phatty
--Catagory[Games]


LogedIn = {}
points = {}

erasepoints = 3
Fuxion = "timebased"

function Main()
	SendA = SendToAll
	Bot = "[Magic]"
	frmHub:RegBot(Bot)
	DrainFusion()
	dVersion = "v0.71"
end

function DrainFusion()
	local number = random(5)
	if number == 1 then
		SendA(Bot,"Scripts have been rebooted")
	elseif number == 2 then
		SendA(Bot,"Warning scripts restarted")
	elseif number == 3 then
		SendA(Bot,"It's all [Magic] when scripts restart")
	elseif number == 4 then
		SendA(Bot,"Why do these scripts keep restarting")
	elseif number == 5 then
		SendA(Bot,"Will you stop restarting scripts :P")
	end
end

function FusionStart(level)
	if Fuxion == "timebased" then
		FusionStartb(level)
		return 1
	else
		SetTimer(1*65432)
		if level == "1" then
			difficulty = "easy"
			ticker = random(3)
		elseif level == "2" then
			difficulty = "mediam"
			ticker = random(10)
		elseif level == "3" then
			difficulty = "hard"
			ticker = random(20)
		elseif level == "4" then
			difficulty = "unstopable"
			ticker = random(60)
		--else
			--difficulty = "random"
			--nr = random(4)
			--level = nr
			--StartBot(level)
		end
		SendA(Bot,"[Magic] is set to "..difficulty)
		Find(ticker)
	end
end

function FusionStartb(level)
	if level == "1" then
		difficulty = "easy"
		ticker = random(3)
		SetTimer(1*30000)
	elseif level == "2" then
		difficulty = "mediam"
		ticker = random(10)
		SetTimer(1*35000)
	elseif level == "3" then
		difficulty = "hard"
		ticker = random(20)
		SetTimer(1*60000)
	elseif level == "4" then
		difficulty = "unstopable"
		ticker = random(60)
		SetTimer(1*60000)
	--else
		--difficulty = "random"
		--nr = random(4)
		--level = nr
		--StartBot(level)
	end
	SendA(Bot,"[Magic] is set to "..difficulty)
	Find(ticker)
end

function Find(ticker)
	number = random(600)
	--SendA(Bot,number.." x "..ticker)
	killer = random(4)
	Translate(killer)
end

function Translate(killer)
	if killer == 1 then
		barbossa = number + ticker
		SendA(Bot,"Add together "..number.." and "..ticker)
	elseif killer == 2 then
		barbossa = number - ticker
		SendA(Bot,"Subtract "..number.." from "..ticker)
	elseif killer == 3 then
		barbossa = number / ticker
		SendA(Bot,"Divide "..number.." by "..ticker)
	elseif killer == 4 then
		barbossa = number * ticker
		SendA(Bot,"Multiply "..number.." by "..ticker)
	else
		--On Error resume next
		barbossa = 1
	end
	--SendA(Bot,"Answer = "..barbossa)
	StartTimer()	
end

function OnTimer()
	local number = random(5)
	if number == 1 then
		SendA(Bot,"***Failed to input correct answer")
	elseif number == 2 then
		SendA(Bot,"***No one was clever to get that answer")
	elseif number == 3 then
		SendA(Bot,"***You all are useless morons")
	elseif number == 4 then
		SendA(Bot,"***You bunch of MUPPETS!!!")
	elseif number == 5 then
		SendA(Bot,"***Useless sods")
	end
	StopTimer()
	FusionStart(level)
end

function DataArrival(user,data)
	if strsub(data, 1, 1) == "<" then	
		data=strsub(data,1,strlen(data)-1)
		s,e,cmd = strfind(data,"%b<>%s+(%S+)")

		if cmd == "m.start" then
			if LogedIn[user.sName] == nil then
				SendA(Bot,"you must be first logged in")
				return 1
			else
				s,e,cmd,level = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
				if level == nil then
					SendA(Bot,"remember to select a level m.start <lvl>")
					return 1
				else
					SendA(Bot,"[Magic] has been started")
					FusionStart(level)
					return 1
				end
			end
		elseif cmd == "m.login" then
			if LogedIn[user.sName] == 1 then
				user:SendData(Bot,"You can't log in twice :P")
				return 1
			else
				user:SendData(Bot,"You have succesfully logged into [Magic]")
				LogedIn[user.sName] = 1
				points[user.sName] = ticker
				return 1
			end
		elseif cmd == "m.score" then
			user:SendData(Bot,points[user.sName])
			return 1
		elseif cmd == "m.version" then
			SendA("---------====================================================================------")
			SendA(Bot,"../// This Hub is running [Magic] "..dVersion.." written and released by Phatty\\\..")
			SendA("---------====================================================================------")
			return 1
		elseif cmd == "a" then
			if LogedIn[user.sName] == 1 then
				s,e,answer = strfind(data,"%b<>%s+(%S+)")
				if not answer == barbossa then
					SendA(Bot,"Incorrect")
					if points[user.sName] < erasepoints then
						user:SendPM(Bot,"You have zero score so i cant take points away from u, so i will disconnect you instead :P")
						user:Disconnect()
					else
						points[user.sName] = points[user.sName] - erasepoints
					end
				else
					SendA(Bot,"***"..user.sName.." scores "..ticker.." point(s)")
					if points[user.sName] == nil or points[user.sName] == 0 then
						points[user.sName] = ticker
					else
						points[user.sName] = points[user.sName] + ticker
					end
					StopTimer()
					FusionStart(level)
				end
			else
				user:SendData(Bot,"Please login first, type m.help")
				return 1
			end
		end
	end
end